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CHAPTER 1 


Introduction 


Control Basic is a computer language developed by 
Cromemco specifically for process control, 
automated testing, data acquisition, and similar 
applications. Control Basic is also an excellent 
language for first-time users of microprocessor 
systems since it is both easy to use and very 
powerful. Some of the advanced features of Control 
Basic include: 


1. 


Programs can be executed directly from ROM 
without first being transferred to RAM. 


Programs can read and write to RAM locations 
directly by use of the GET and PUT commands, 


Programs can input from and output to I/0 


-ports directly by use of the IN and OUT 


commands. 


Machine language subroutines can be called 
directly by use of the CALL command. Up to 60 
arguments can be passed from Control Basic to 
the subroutine in a single call. 


Extensive output formatting is available 
including soft and hard terminal width, tabs, 
numerical field width, over-printing, and 
decimal or hex number output. 


Multiple commands can be included in each 
statement, 


Numbers can be represented in decimal, 
hexadecimal, or ASCII format both within the 
program and as input to the program. 


The INPUT command automatically prints the 
variable name as the prompt if the program 
does not provide one. Operators making a 
syntax error in response to an INPUT request 
will be prompted again. 
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9. All commands can be abbreviated to produce 
very compact source code. 


lø. String input, output, and string manipulations 
can be carried out. 


11. Multiple program files can be created. These 
programs can be run independently or may call 
one another as subroutines. 


12. Programs can be stored in 27Ø8 EPROM in an 8K 
Bytesaverf II from Cromemco using the EPROM 
command. Similarly programs can be stored in 
2716 EPROM in a 32K ByteSaver* from Cromemco 
using the SAVE command. 


Even with all these features, the Control Basic 
Interpreter occupies just 3K bytes of memory. Two 
versions of the interpreter are available from 
Cromemco. The first version is supplied in three 
1K-byte 2398 ROM memories. This version (model CB- 
388) is designed to be resident in memory locations 
E4ØØH through EFFFH. The three ROMS can be used in 
the Cromemco Bytesaver II (model 8KBS) or 16K ROM 
(model 16KPR) memory cards. 


The second version of Control Basic comes in two 
2K-byte 2316 ROM memories, This two-ROM set (model 
MCB-216) also contains a 1K-byte Z809 Monitor 
program. The two-ROM set is designed to be 
resident in memory space from locations ØØØØH 
through ØFFFH. These ROMs can be used in the 
Cromemco Single Card Computer (model SCC) or in the 
Cromemco 32K Bytesaver (model 32KBS) memory card. 


An unusual and very important feature of Control 
Basic in the two-ROM set (MCB-216) is the AUTORUN 
command. If this command makes up the first line 
of the Basic program, then execution of the program 
will begin automatically upon power-on or reset 
without user intervention. This eliminates the 
need for an operator to type "RUN" in order to 
begin program execution. 


*Trademark of Cromemco, Inc. 
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2.1 


CHAPTER 2 


Getting Started with Control Basic 


Installing Control Basic in Your System 


The Control Basic Interpreter model CB-3Ø8 is 
located at hex E400-EFFF in ROM. The cold start 
for CB-3Ø8 is at E4ØØH, while the warm start to 
prevent loss of stored programs is at E42FH. (More 
information on the Control Basic warm starts will 
be found in section 5.9.1.) The three ROMS 
supplied can be used in ROM positions 1, 2, and 3 
of a Cromemco 8K Bytesaver board addressed at EØØØH 
in memory space. (ROM position Ø of the Bytesaver 
is normally reserved for the Cromemco ZM-198 
Monitor program.) 


Control Basic model MCB-216 is located at hex 0423- 
ØFFF in ROM with its cold start at 423H and its 
warm start at 452H (see section 5.9.1). This 
version of Control Basic also comes with the 
Cromemco SCC Monitor program located at Ø-422H. 
Model MCB-216 is supplied in two ROMs that are 
normally plugged into ROM sockets Ø and 1 of the 
Cromemco Single Card Computer. They may also be 
used in ROM sockets Ø and 1 of a 32K Bytesaver 
addressed at Ø in memory. 


The reader is referred to Chapter 8 for more 
information on memory allocation for both models of 
Control Basic. 


Entering Programs from the Console Device 


Once you have loaded your model of Control Basic 
into the appropriate Bytesaver or Single Card 
Computer (see above and Chapter 1), the prompt will 
be given: 


OK 
> 


and the program will be waiting for input. To 
display the stored program, type "LIST" (section 
DO ks To delete that program, type "NEW" 
(section 5.6.1). To enter a new statement, type. 
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the statement number and the text of the statement. 
To delete a statement, type the statement number 
and a carriage return (CR) only. 


If you notice an error in typing before you hit the 
CR, you can delete the last character by using the 
RUBout or DELete key or delete the entire line with 
the ESCape key. Control Basic will echo a back- 
slash (\) for each deleted character. A deleted 
line is marked by a CR-LF and an up-arrow (°). The 
ALT-MODE key (ASCII 7DH) may be used in place of 
the ESC key to delete lines (useful with a 
teletype). 


To correct a statement, you can retype the 
statement number and the correct commands. Control 
Basic will replace the old statement with the new 
one. 


You can verify the corrections or insertions to 
your program by using the LIST command. LIST 
allows you to view either single statements or 
complete blocks of text. 


Entering or Saving Programs with Other Devices 


Control Basic may be used with devices other than 
the console terminal. A paper tape reader and 
Punch for Control Basic are assumed (in the 
Standard I/O drivers) to be part of and connected 
to the same port address as the console device, as 
is the case with a teletype. Control-0 is used as 
an echo control for the input device. Thus, a 
program on paper tape may be read in without having 
it typed out on the console device by either the 
operator pressing CTRL-0, or by the tape containing 
the CTRL-O character itself in the leader. Users 
who change the I/O drivers in RAM (model CB-3Ø8 
only) may desire to assign the punch and reader to 
a port address other than that used for the console 


device. In such a case the function of CTRL-O 
could be preserved to allow switching from one 
device to another. Control Basic model CB-3Ø8 


could also be interfaced to a printer for those 
users not having teletypes by changing the 1/0 
drivers in RAM (see section 8.1.2 for complete 
listing of present drivers). 


Pressing Control-O complements the value stored in 
"OCSW" in RAM (See listings in section 8.1.1 or. 
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8.2.1). Thus, this may also be changed within a 
Control Basic program rather than from the console 
to allow the inputting of a password or other 
invisible characters. An example will illustrate 
this: 


lø PRINT "INPUT PASSWORD: ",; REM Prompt operator 

20 PUT(%3E5)=XOR(GET(%3E5) ,5FF); REM Complement "OCSW" 
39 INPUT $(Ø); REM Input the actual password 

49 PUT ($3E5)=XOR(GET(%$3E5) ,%FF); REM Allow echo again 


This example is for model CB-398 Control Basic but 
could easily be changed for MCB-216. Refer to 
Chapter 5 for explanations of the commands used 
above and to Chapter 3 for an explanation of 
strings $(J), and the GET and XOR functions. 


To produce a paper tape of a Control Basic program 
using the punch, one method is to type "LIST" (no 
CR), turn on the punch, type as many nulls as are 
desired for a leader, and then a carriage return. 
Nulls are produced on a teletype by Control-Shift-P 
and on a CRT by Control-@. When the listing is 
finished, type more nulls for a trailer and then 
turn off the punch. 


A paper tape of the form just described may be read 
back by the method described earlier: First type 
"NEW" to clear any current program; then press 
Control-0 and turn on the tape reader. When the 
paper tape is finished loading, turn off the reader 
and press Control-0 to once again allow echoed 
input and output. 
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CHAPTER 3 


Elements of the Control Basic Language 


Numbers and Constants 


In Control Basic all numbers are integers and must 
be less than 32767. Numbers are stored internally 
as 16-bit two's complement (low byte-high byte). 
For programming and input/output, numbers are 
expressed in decimal, hexadecimal, or the ASCII 
character code. Hexadecimal numbers are denoted by 
the character "%" followed by up to 4 hexadecimal 
digits. For example, %21 and 33 are both stored 
internally as 98190001 909090009; SFFF4 and -12 are 
both stored internally as 11110199 11111111. An 
ASCII code (7-bit) is denoted by a colon (:) 
followed by an ASCII character. For example, :A 
has the value 65 (or 41H) and is stored internally 
either as one byte, 0100099091, or as two bytes, 
01900001 99099999, depending on how it is used. 


Variables 


There are 52 variables denoted by letters A through 
Z and AØ through Zø. There is also an array @(I). 
The dimension of this array (i.e., the range of the 
index I) is set automatically to make use of all 
the memory space that is allocated but left unused 
by the text of the current program (i.e., Ø through 
SIZE/2; see SIZE function below. Also see section 
8.1.1 or 8.2.1 on memory allocation.). Each 
variable and each element of the array @(I) uses 
two bytes of memory stored low byte-high byte. 


The same memory space that is used to store the 
array @(I) can also be accessed, one byte at a 
time, through &(J) (or as strings through $(J) 
where J runs from Ø through SIZE. That is, &(Ø) is 
the low byte of (Q(Ø), &(1) is the high byte of 
@ (9), &(2) is the low byte of @(1), &(3) is the 
high byte of @(1), etc. Strings of up to 132 
characters each can be stored in the same memory 
area and are accessed through $(J). The length N 
of the string $(J) is stored in &(J); the 7-bit 
ASCII characters of the string are stored in &(J+1) 
through &(J+N). Thus, $(J+N+1) can be another 
string. 
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The multiple naming of the same memory space is 
intentional. This not only gives the programmer 
the freedom to allocate available memory between 
arrays and strings but also is very convenient for 
packing and unpacking data, and for string 
manipulation. 


Functions 


Control Basic has 10 built-in functions, which are 
described below. The values returned by these 
functions will always be printed in decimal unless 
the user requests the answer in hex. This may be 
done by means of the format controls of the PRINT 
command, section 5.4.1. In the following x and y 
denote variable or constant expressions. 


ABS (x) gives the absolute value of x. 


RND (x) gives a random number between 1 and 
x (inclusive). 


SIZE gives the number of bytes allocated 
- to, but left unused by the current 
program in the text area. See 


section 8.1.1 or 8.2.1 for a 
discussion of memory allocation. 


SGN (x) returns a 1 if x is positive (or 
zero) or a -1 if x is negative. 


AND(x,y) gives the 16-bit Boolean AND of x 
and y. 


‘OR (x,y) gives the 16-bit Boolean inclusive 
OR of x and y. 


XOR(x,y) gives the 16-bit Boolean exclusive 
OR of x and y. Note that 
XOR(x,%FFFF) gives the one's 
complement of x, and -x gives the 
two's complement of x. (The result 
z of this operation must be in the 
range -32767 < z < 32767. Hence 
there is no one's complement of 
7FEFH nor two's complement of 
8900H.) 
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GET (x) gives the 8-bit contents (1 byte) of 
memory location x. 


IN (x) gives the l-byte value input from 
port x, where Ø<=x<=255. 


LOC gives the absolute address of €(Ø), 
&(@), and S(Ø). 


3.4 Arithmetic and Compare Operators 


Control Basic allows the following operators in 
variable and constant expressions: 


/ divide. 
È multiply, or logical AND. 


- Subtract, or two's complement. 


+ add, or logical OR. 
>. greater than (compare). 
< less than (compare). 


= equal to (compare). 


# not equal to (compare). 
>= greater than or equal to (compare). 
<= less than or equal to (compare). 


The operations +, -, *, and / result in a. value 
between -32767 and 32767. Results outside this 
range will cause an error, and Control Basic will 
print "HOW?". All compare operators result in a 1 
if true and a @ if false (not true). 


In the Logical context, a Ø is False and any non- 
zero value is True. Thus, the add operator (+) is 
also used as logical OR, and the multiply operator 
(*) is also used as logical AND. For logical 
complement, one may use @=. For example: 


A+B can mean A ORB. 
A*B can mean A AND B. 
Ø=A can mean NOT A. 
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Note that if one wants the 16-bit-by-bit Boolean 
AND, one should use the function AND(A,B) instead 


of the logical AND just described. The same. 


applies for Boolean OR and XOR. 
Expressions 


Expressions are formed from numerical elements with 
arithmetic or compare operators between them. 
Numerical elements include constants (decimal, hex, 
or ASCII), variables, two-byte array elements @(I), 
one-byte array elements &(J), functions, and other 
expressions in parentheses. A "+" or a "-" sign 
can also be used as a unary operator. The 
hierarchy for evaluating expressions is as follows: 
functions are evaluated first, then parentheses 
(from the innermost), then multiplication and 
division, then addition and subtraction, then the 
compare operations. Cascaded * and / or cascaded + 
and - are evaluated from left to right. Compare 
operators cannot be cascaded. Several commented 
examples of both legal and illegal expressions 
follow: 


1+2*3 has the value 7, not 9. 

2>1+3 is false and has the value 
9 (> is used as a compare 
operator and 2 is not 
greater than 143). 

2*5/3 has the value 3, while 
2/3% 5 is 0 due to 
truncation. 


A+-3 is invalid, but A>-3 is 
allowed. 
A<X<B is invalid; (A<X) ig (X<B) 


is the proper way of 
testing whether X is 
between A and B. 

(A>B)*X + (A=B)*Y is equal to X if ADB, is 
equal to Y if A=B, and is 
equal to Ø if A<B. 

(&(8)>=:A)*(&(8)<=:Z)*2 + (&(8)>=:Ø) * (&(8) <=:9) 
has a value of 2 if the 
character &(8) is a letter, 
a value of 1 if it is a 
digit, and a value of 0 
otherwise. 
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CHAPTER 4 


Control Basic Syntax 


Control Basic General Syntax 


There are a number of special definitions used 
throughout this manual as well as some general 
rules of syntax which should be followed when 
entering and editing Control Basic programs. The 
definitions of important terms follow: 


command - 
Applies to Control Basic keywords which may be 
used in either direct commands or statements. 


direct command - 
Commands which may be typed directly from the 
console in response to the Control Basic 
prompt. 


statement - 
A numbered line in a Control Basic program 
which is composed of one or several commands. 


multiple-command statement - 
A numbered line in a Control Basic program 
which is composed of several commands (on the 
same line) separated by semi-colons. 


function - 
One of ten control structures intrinsic to 
Control Basic which may be used in 
expressions. (Note that commands may not be 
used in expressions.) 


current program - 
The program which may be entered or edited 
directly without first LOADing it; the program 
which prints on the console when "LIST" is 
typed. 


text area - 
The area of memory reserved for storage of the 
current program and the arrays. 


cade 8 . ce 


lø 
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There are also a number of rules of syntax to be 
followed when entering and editing Control Basic 
programs. These are summarized below: 


l. 


A Control. Basic programs consists of one or 
more numbered statements. The statement 
number must be an integer between 1 and 32767, 
inclusive. 


Multiple-command statements (see above) must 
use semi-colons (;) to separate the commands. 
There are three exceptions to this: GOTO, 
STOP, and RETURN cannot be followed by a semi- 
colon or other commands; they must be the last 
command on any given line. 


When the direct command "RUN" is issued, the 
statement with the lowest line number is 
executed first, followed by the one with the 
next lowest line number, etc. The statements 
GOTO, RUN, STOP, GOSUB, and RETURN can alter 
this sequence, however, by causing control to 
branch to a specific line number (see Chapter 


5). 


Execution of the commands within a multiple- 
command statement is from left to right. The 
IF command is a special case in that if the 
condition tested is false, all commands to the 
right of that point will be skipped over and 
execution will continue with the next line. 


Spaces (blanks) may be used or omitted freely 
but for the following exceptions: constants, 
and command and function keywords may not 
contain embedded blanks. They may be 
abbreviated, however; see section 4.2. 


Execution of a running program or listing of 
any type of output may be aborted by pressing 
the Control-C key (usually the two keys, CTRL 
and C, depressed simultaneously) on the 
console input device. 


Throughout this manual, portions of example 


programs which are underlined signify that 
those expressions are user-typed. 
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Abbreviations and Summa ry of Commands 


Control Basic command and function keywords may be 
abbreviated if desired. Since the Interpreter 
stores programs as the actual ASCII characters 
which make up the statements and this requires one 
byte per character (See Memory Allocation 
sections), the abbreviated forms of commands 
greatly reduce their memory storage requirements. 
This is important if the program is to be stored in 
PROM for future use (see SAVE and EPROM commands). 
For example, the following command line: 


109 FOR I=1 TO 1000 STEP 2 ; PRINT I , ; NEXT I 


would perform exactly the same function if 
abbreviated to the form: 


19 F.I=1TO01ØØØS.2;P.I,;NE.I 


This second line requires only about half the bytes 
for storage as the first line. However, since this 
second line is not very legible, it is recommended 
that a programmer develop a program using the full- 
word commands, and only translate it to the 
abbreviated form just prior to programming it into 
PROM. 


The abbreviations are formed by truncating several 
of the trailing letters and replacing them with a 
period (.). For example, "P.", "PR.", "PRI.", and 
"PRIN." all stand for the word "PRINT". Command 
keywords cannot be truncated to a shorter length 
than the minimum abbreviations given below or 
Control Basic will print "WHAT?". Also note that 
the word "LET" in a LET statement may be omitted 
altogether. There are three columns in the table 
below: the first shows all Control Basic commands, 
the second shows only those which may be used in 
numbered statements (these may also be used as 
direct commands), and the third column shows the 
ten Control Basic functions. The shortest keyword 
abbreviations are: 
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Direct Commands 


AUTORUN=AUTORUN 
C.=CALL 
E.=EPROM 
F.=FOR 
G.=GOTO 
GOS.=GOSUB 
IF=IF 
IN.=INPUT 
=LET (implied) 
L.=LIST 
LO.=LOAD 
LOCK=LOCK 
NEW=NEW 
NE.=NEXT 
NU.=NULL 
O.=OUT 
P.=PRINT 
PUT=PUT 
Q.=QUIT 
R.=RDOS 
R.=RETURN 
REM=REM 
RUN=RUN 
S.=SAVE 
S.=STEP 
ST.=STOP 
TO=TO 
W.=WIDTH 
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Statements 


AUTORUN=AUTORUN 
C.=CALL 


F.=FOR 
G.=GOTO 
GOS.GOSUB 
IF=IF 
IN.=INPUT 
=LET (implied) 


NE.=NEXT 


0.=0UT 
P.=PRINT 
PUT=PUT 


R.=RETURN 
REM=REM 
RUN=RUN 


S.=STEP 
ST.=STOP 
TO=TO 


Functions 


A.=ABS 
AND=AND 
G.=GET 
IN=IN 
L.=LOC 
OR=OR 
R.=RND 
S.=SIZE 
SGN=SGN 
X.=XOR 


* These commands are found in model MCB-216 only. 


As defined in section 4.1, 
statement, which, 
However, when a command 
input device without a line number preceding it, 
is a direct command. 


in turn, 


a command is part of a 
is part of a program. 
is typed at the console 


it 


Direct commands are not 


stored by Control Basic but are executed 


immediately. 


The commands listed 


in the second column above may 


be used both as statements of stored programs and 
Those not listed in column two 


as direct commands. 
but listed in column one 


commands only. 
cases: 
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La When used as direct commands, GOSUB, INPUT, 
and RUN cannot be followed by semi-colons and 
other commands. 


2. AUTORUN, NEXT, RETURN, REM, STEP, STOP, and TO 
are meaningless as direct commands, However, 
NEXT, STEP, and TO may be used within a direct 
FOR command all typed on one line as shown in 
this example: 


FOR I=9 TO 255 STEP 4; PRINT #%,,1,; NEXT 


3. when used in statements, GOTO, RETURN, and 
STOP must be the last command on the line 
(cannot be followed by semi-colons and other 
commands). 


Memory Organization of Control Basic 


The text of the current program is stored in memory 
one ASCII character per byte. Line numbers are low 
byte-high byte 16-bit binary and are stored with 
the text (section 8.1.1 or 8.2.1). The amount of 
memory space available for the current program may 
be changed by means of the LOCK command (section 
5.7.1). The number of bytes available to (by LOCK 
or by default), but left unused by, the current 
program may be obtained with the SIZE function 
(section 3.3). These unused bytes are used for 
storage of the two-byte, one-byte, and string 
arrays (section 3.2). 


One may not use the LOCK command to set the 
boundary at any page that already has current 
program text in it, nor at any page below the 
bottom of the text area. If the LOCKed area is 
exceeded during the entering of a statement of the 
current program, Control Basic will print "SORRY" 
and will accept no more statement input until more 
space is made available, either by deleting some 
present lines or by unLOCKing more text area. 


Control Basic allocates storage in "pages", or 256- 


byte units. Model CB-3Ø8 has roughly the following 
organization: 
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page @ - not used 


pages 1,2, and 3 - used for I/O routines, 
variables, and stack storage 
pages 4 through 31 - text area for current 


program and arrays 

pages 32 through 227 and 249 through 255 - 
used for SAVEd program files 

pages 228 through 239 - storage of Control 
Basic program itself 


Model MCB-216 has a slightly different 
organization: 


pages Ø through 15 - storage of Control Basic 
program itself 

pages 16 through 31 - used for previously- 
stored programs in PROM 


pages 32 and 33 - used for variables and stack 
storage 
pages 34 and 35 - text area for current 


program and arrays 
pages 36 through 255 - used for SAVEd program 
files 


Much more detailed information on memory allocation 
including listings of the data areas in RAM will be 
found in sections 8.1.1 (model CB-3Ø8) and 8.2.1 
(model MCB-216). 


CROMEMCO 3K CONTROL BASIC INSTRUCTION MANUAL 
5 Control Basic Commands and Statements 


CHAPTER 5 


Control Basic Commands and Statements 


Assignment Commands 


LET Command 


The LET command can be used to evaluate expressions 
and store the values in variables, the double byte 
array @(I), and the single byte array &(J). More 
than one variable or array element may be set by a 
single LET command. Some examples of the use of 
LET are: 


lø LET A=234-5*6, @(A-3)=4*A, &(25)=18 
20 LET UØ=(A<B)+AND(ABS (X-1) , SFF) +:* 
3Ø LET AØ=BØ=Ø 

40 LET @(0)=-1, &(Ø)=Ø 

509 A=3, B=2*A 


Note that statement 38 will not set both AØ and BØ 
to zero. The second equal sign (=) in this command 
is a compare operator (see section 3.4); thus only 
AØ will be altered according to whether BØ is equal 
or is not equal to Ø. 


Note also that after statement 49 is executed, the 
value of @(@) will not be -1. This is because 
&(2*I) is the same as the low order byte of @(I), 
and &(2*I+1) is the same as the high order byte of 
@ (I). Thus &(1) will be 255 and @(0) will be -256. 


The word "LET" is optional. Thus statement 5Ø sets 
A to 3 and B to 6. . 


PUT Command 


The PUT command can be used to evaluate expressions 
and store the values (which must be between Ø and 
255) into absolute memory locations. The form of 
PUT is 


PUT (x) = a,b,C,... 


where a, b, and c are expressions whose values are 
stored in consecutive memory locations beginning 
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with the address which is the value of the 
expression x. Either single or consecutive memory 
locations may be altered with the PUT command. An 
example of the use of PUT is 


lø PUT (%808)=%11,AND(X+3,%FF) , (X+3)/%100,%CD,%A4,%EC,%C9 
29 PUT(X+3) = :H, :0, :W, :D, :Y, $D 


where part of a machine language subroutine (LD 
HL,X+3; CALL ECA4H; RET) is PUT into memory 
locations %8ØØ through %8Ø6, and the string of 
ASCII code for "HOWDY <CR>" is put into locations 
X+3 through X+8. A better way of unpacking the low 
and high bytes of X+3 in statement 18 is to 
initialize the two byte array @(I) to the address, i; 
X+3, and then use the one byte array, &(I) or 
&(I+1) as appropriate, to specify low or high byte: 


5 LET €(Ø)=X+3 
19 PUT(3800)=%11, &(Ø), &(1), BCD, %A4, SEC, %C9 


The counterpart of PUT is GET , but GET is a 
function as opposed to a command. GET(x) can be 
used in any expression and returns the contents of 
absolute memory location x. 
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5.2 


5.2.1 


Control Commands 
IF Command 


The IF command consists of the word IF followed by 
an expression, and then followed by one or more 
other commands. An example is: 


lø IF A<B LET X=3; PRINT 'A IS LESS THAN B' 


The command above tests the value of the expression 
A<B. If it is true (i.e., if it is not zero), the 
commands in the rest of the line of this statement 
will be executed. If the value of the expression 
is false (i.e., if it is zero), the rest of this 
statement will be skipped over and execution will 
continue with the next statement. Note that the 
word "THEN" is not used. 


GOTO Command 


The GOTO command consists of the word GOTO followed 
by an expression. An example is: 


lø GOTO 120 


This statement causes the program being executed to 
jump to statement 129. Note that a GOTO command 
cannot be followed by a semi-colon and other 
commands. It must end in a carriage return. The 
Statement 


lø GOTO A*10+B 


causes the program to jump to a variable statement 
number as computed from the value of the 
expression. 


Indiscriminate use of GOTO statements makes a 
program difficult to follow and. should be avoided. 
On the other hand combining short and logically 
related commands in a single statement can make a 
program easier to understand and is highly 
recommended. Consider the following example of a 
game; this program uses many GOTOs but does not 
take advantage of multiple-command statements. ` 
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This is 


PRINT "NUMBERS, NUMBERS, WHO CAN GUESS MY NUMBERS?" 
LET X=RND(1ØØ) 

LET N=Ø 

PRINT "I HAVE A NUMBER BETWEEN 1 AND løg" 
INPUT "YOUR GUESS" G 

LET N=N+1 

IF N>2Ø GOTO 13Ø 

IF G>X GOTO 16Ø 

IF G<x GOTO 189 

PRINT "YOU GOT IT IN", N, " GUESSES" 
PRINT "LET'S PLAY AGAIN" 

GOTO 29 

IF G=X GOTO 199 


PRINT "NO, IT WAS", X 

GOTO 119 

PRINT "TRY A SMALLER NUMBER" 

GOTO SØ 

PRINT "TRY A BIGGER NUMBER" 

GOTO 58 

a working program, but it could have been 


much cleaner and easier to understand with half of 
the GOTO statements deleted and with a few of the 
other statements combined: 


The FOR 


PRINT "NUMBERS, NUMBERS, WHO CAN GUESS MY NUMBERS?" 
LET X=RND(1ØØ), N=Ø 

PRINT "I HAVE A NUMBER BETWEEN 1 AND 190" 

INPUT "YOUR GUESS" G; LET N=N+1 

IF (N>20)*(G#X) PRINT "NO, IT WAS", X; GOTO 119 

IF G>X PRINT "TRY A SMALLER NUMBER"; GOTO 50 

IF G<X PRINT "TRY A BIGGER NUMBER"; GOTO 50 

PRINT "YOU GOT IT IN", N, " GUESSES" 

PRINT "LET'S PLAY AGAIN"; GOTO 26 


FOR Command 


and NEXT commands are used to set up loops 


in Control Basic. The FOR statement consists of 
the word FOR followed by a variable or a double 
byte array element, an equal Sign, an expression, 


the word 


TO, another expression, and optionally the 


word STEP and a third expression. The variable or 


the two 
variable 


byte array element is called the control 
of the loop. It is set to the value of 


the first expression before entering the loop. The 


second 
variable 
entry. 


expression is the limit of the control 
+ It is evaluated and stored internally at 
The third expression is the step size, and 


it is also evaluated and stored at entry. It can 
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be positive, negative, or zero. If the step size 
is not specified, it is assumed to be +1. After 
the step size is stored, execution of Control Basic 
continues with the next statement or the next 
command of a multiple-command statement. 


NEXT Command 


The NEXT command consists of the word NEXT followed 
by the control variable of the loop. The control 
variable is updated by the amount of the step size 
and is then compared with the limit of the control 
variable. If it is within the limit (inclusive), 
Control Basic will loop back to the command that 
follows the FOR command and repeat the loop. If 
the updated control variable is outside the limit, 
the internal storage for this loop is cleared and 
Control Basic proceeds to execute the statement 
which follows the NEXT statement. The following 
example will illustrate the use of FOR-NEXT loops 
with varying STEP sizes: 


19 PRINT "TEST", 

29 FOR T=1 TO 3 

3Ø PRINT T, 

4Ø NEXT T 

5Ø PRINT; PRINT 'COUNT DOWN', 
6Ø FOR C=1ØØ TO 98 STEP -1 

7Ø PRINT C, 

8Ø NEXT C 

99 PRINT ' ...'; PRINT 'STEP', 
199 FOR @(3)=19 TO -15 STEP -5 
119 PRINT € (3), 
120 NEXT @(3) 


OK 

>» RUN 

TEST 1 2 3 

COUNT DOWN 100 99 98 iva 

STEP 19 5 Ø -5 -1Ø -15 
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Notes on FOR-NEXT Loops 


The following are several unuSual features of 
Control Basic FOR-NEXT loops which are worth 
mentioning. Numbers 4 through 7 below are not 
recommended if the user is attempting to write 
clean, easily debugged code. 


ba The loop will be executed at least once no 
matter what the initial value, step size, and 
the limit of the control variable are. 


2. If the step size is Ø, the loop will never end 
unless the control variable is altered inside 
the loop. 


Tie After the loop is finished, the control 
variable will have the final updated value, 
which is outside the limit. 


4. Since Control Basic is interpreted rather than 
compiled, it is perfectly acceptable to put 
the NEXT statement physically before the FOR 
statement as long as there are GOTOS to make 
Control Basic "see" the FOR before the NEXT. 


5. It is also acceptable to have unequal numbers 
of FORs and NEXTs, as long as there are IFs 
and GOTOS so that Control Basic will not "see" 
a NEXT without first encountering a FOR with 
the same control variable. 


6. It is acceptable to have a GOTO out of the 
loop and later GOTO back into the loop. It is 
also acceptable to have a GOTO out of the loop 

and never come back into the loop. In the 
latter case the loop remains "active"; it 
takes some stack space but is harmless 
otherwise. 


re” When a new FOR command having a control 
variable that is the same as an old but still 
active FOR loop is encountered, the old loop 
is purged. 


8. FOR-NEXT loops can be nested as long as each 


level uses a different control variable. The 
depth is limited only by stack space. 
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If a NEXT commmand for the outer loop is 
encountered inside the inner loop when using 
nested FOR-NEXT loops, the inner loop is 
Purged automatically. 


Note that the above apply to Cromemco Control Basic 
but do not necessarily apply to other Basic-like 
languages. For example the following program does 
not work on many of them: 


19 REM TRY THIS WITH BOTH A>@ AND A<Ø 
15 INPUT A 

29 FOR J=1 TO 3 
39 IF A<Ø GOTO SØ 
40 NEXT J 

59 PRINT J 

69 FOR I=1 TO 3 
79 FOR J=1 TO 3 
8Ø NEXT J 

98 NEXT I 

199 GOTO 15 


Although this program works with Control Basic, 
it's a bit obscure. 
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5.3 Subroutines 
5.3.1 GOSUB Command 


The GOSUB statement is similar to the GOTO 
statement except that (a) the current statement 
number and position within the statement are stored 
internally (this allows control to be transferred 
back by RETURN); and (b) other commands separated 
by semi-colons can follow it in the statement. The 
following are legal GOSUB statements: 


19 GOSUB 129 

20 GOSUB A*10+B 

309 GOSUB 129; IF C<=Ø GOTO 16 

40 REM IF C>Ø THE GOTO ABOVE WILL NOT BE EXECUTED 


Statement 1@ will cause the execution to jump to 
statement 1209; when a RETURN command (see following 
section) is encountered, control will transfer back 
to the next following statement or command of a 
multiple-command statement. Statement 20 will 
cause the execution to jump to a variable statement 
number as computed from the value of the expression 
A*10+B. 


53,2 RETURN Command 


A RETURN command must be the last command in a 
statement and followed by a carriage return (i.e., 
it cannot be followed by a semi-colon and other 
commands). When a RETURN command is encountered, 
it will cause the execution to jump back to the 
command following the most recent GOSUB command. 


An active FOR-NEXT loop in the calling program is 
no longer active in the subroutine but will be 
restored to be active after the subroutine RETURNS 
to the calling program. Any active FOR-NEXT loop 
in the subroutine itself will be purged 
automatically when RETURN is encountered. 
Variables are always global; therefore subroutines 
can have no local variables. 


GOSUBS can be nested. The depth of nesting is 
limited only by the stack space and can be no more 
than 24 levels deep. GOSUBS are also recursive 
with the limitation that all variables and arrays 
are global. For example, consider the function 
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F(1)=1 
F(N)=N*F(N-1) for N>1 


One can write the following test program to 
illustrate the function F(N) using recursive GOSUBs 
(underlined words are user-typed): 


19 INPUT 'GIVE ME A SMALL POSITIVE INTEGER! 
20 GOSUB 199 
30 PRINT 'F(', #1,N, ')=', E 
49 STOP 
190 IF N=1 LET F=1; RETURN 
1109 N=N-1; GOSUB 100; N=N+1 
120 F=N*F; RETURN 


OK 

>RUN 

GIVE ME A SMALL POSITIVE INTEGER:6 
F(6)=72Ø = 


Note that F(N) as defined above is simply the 
factorial function. 


RUN Command 


The RUN command consists of the word RUN followed 
optionally by a page number. The RUN command is a 
Subroutine call on a grand scale. If a page number 
is given, it calls the Control Basic program SAVEd 
(or EPROMed) on that page. If a page number is not 
given, it calls the Control Basic program in the 
active text area. The RUN and GOSUB commands 
differ in that a GOSUB command calls a subroutine 
that is within the same program as the calling 
routine, whereas a RUN command calls a subprogram 
which is in a separate file. A subprogram in a 
separate file has the advantage that it has its own 
set of line numbers. Since RUN may be used in a 
Statement, the following is a legal program: 


lø RUN 40 ; 
209 PRINT "END OF FACTORIAL" 


This would run the program given above in section 
5.3.2, assuming it had been SAVEd on page 480, 
Thus, it is easy to see how different programs 
could share the same set of debugged "library" 
Subprograms. 
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The RUN command can be nested and is recursive. AS 
it is for GOSUB, the depth of nesting is limited by 
stack space, and one should bear in mind that all 
variables and arrays are global. 


AUTORUN Command: 


The AUTORUN command is a feature of model MCB-216 
Control Basic only. I£ the first line in a Basic 
program stored on page 18H begins with the command 
AUTORUN, then that program (on page 16H) will run 
automatically each time the computer is reset. 


The console serial port of the computer will 
automatically be set to 9600 baud. However, it is 
easy for the program to change the baud rate to 
another value. 


For example, if the following program is stored on 
page 16H, 


lø AUTORUN 
20 OUT(Ø) = 884 
30 RUN $11 


the baud rate will be changed to 399 with one stop 
bit (see the SCC Input/Output Register Description 
in the SCC Instruction Manual), and then the 
program beginning on page 11H will be RUN. This 
process occurs every time the computer is hardware 
reset. 


It should be noted that during normal execution 
(i.e., in all cases except after a hardware reset 
or power-on) the line beginning with the word 
"AUTORUN" is treated as a REMark. 


STOP Command 


The STOP command consists of the word STOP followed 
by a carriage return, It cannot be followed by a 
semi-colon and other commands on the same line. 
The STOP command goes with the RUN command in the 
Same way that RETURN goes with GOSUB. The 
principle difference between the two sets of 
commands is that RUN-STOP may be used to call a 
Subprogram in a separate file with its own set of 
line numbers. 
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STOP returns control from a subprogram to the 
calling program (which will continue RUNning); 
however, if the program which is RUNning when STOP 
is encountered is the current program in the text 
area, execution is terminated and the prompt is 
given. If the end of file is reached in a 
Subprogram before a STOP statement is encountered, 
Control Basic will also return to direct mode 
instead of to the calling program. An example will 
illustrate the way STOP passes control from 
subprogram to calling program. The following is a 
program which has been previously stored (SAVEd or 
EPROMed) at page 32: 


18 PRINT "THIS IS A PROGRAM ON PAGE 32" 
20 RUN 33 

38 PRINT "END OF PROGRAM ON PAGE 32" 

49 STOP 


and the next listing is a program which has been 
previously stored at page 33: 


19 PRINT 'BUT THIS PROGRAM IS ON PAGE 33! 
. 29 STOP 


RUNning the program on page 32 will produce the 
following result: 


OK 

>RUN 32 

THIS IS A PROGRAM ON PAGE 32 
BUT THIS PROGRAM IS ON PAGE 33 
END OF PROGRAM ON PAGE 32 


Note that this will have no effect on the current 
Program in the text area if there is one, This 
means that one does not need to LOAD a program to 
RUN it, a most useful feature (see section 5.3.3 
for more information). 


CALL Command 


The CALL command is used to call a machine language 
subroutine. The word CALL is followed by an 
expression and then a list of arguments enclosed in 
parentheses, The value of the expression is the 
absolute address of the entry of the machine 
language subroutine. The argument list consists of 
none, or one or more arguments. Each argument is a 
variable, a one byte array element, or a two byte 
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array element. Arguments are separated from one 
another by commas, and the entire list is enclosed 
in a pair of parentheses. 


The machine language subroutine can be stored in 
memory by a loader, an assembler, a monitor 
program, or by Control Basic itself. To store a 
machine language subroutine with Control Basic, one 
may use the LET or PUT commands. The example of 
section 5.1.2 illustrates this. We can now CALL 
this machine language routine to print the word 
"HOWDY" on the console with the statement: 


309 CALL %889 


[This example will work only if there is a console 
printing routine whose starting address is at 
ECA4H, as there is for model CB-398 Control Basic.] 
Note that no arguments were passed in this CALL 
Statement. 


Arguments are passed by addresses and these 
addresses are stored in the stack before Control 
Basic passes control to the machine language 
Subroutine. The arguments are stored in a "Last 
In-First Out" or LIFO format; thus, the last 
argument on the statement line will be the first 
one POPed off the stack. The number of arguments 
is passed in the C register. The subroutine must 
POP the stack (C) times even if it does not need 
the arguments. Other than this arrangement of the 
stack, the subroutine can change all registers 
without any limitation. When the subroutine is 
finished, it uses a RET (Z8Ø instruction) to POP 
the stack once more, which also returns control to 
Control Basic. Another example illustrating 
argument passing is: l 


19 CALL $2808 (A, &(3*B+1), @(3)) 


In this example the subroutine at memory location 
2ØØØH is called and passed the three arguments, A, 
&(3*B+1), and @(3). Upon entrance to the machine 
routine, the C register contains the number 3. The 
stack pointer points to the address of @(3), which 
is followed by the address of &(3*B+1), the address 
of A, and finally the return address. 
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5.4 Input and Output Commands 


5.4.1 PRINT Command 


The PRINT command is used to print all types of 
output on the console device, including strings, 
constants in both decimal and hexadecimal, and the 
values of variables, arrays, and expressions. Its 
format is the word "PRINT" followed by a list of 
items separated by commas. The items in the list 
may include any of the following: 


1. Constants (decimal, hexadecimal, ASCII). 
2. Variables (A through Z and AØ through ZØ). 
Ia One-byte, two-byte, and string array elements. 


4. Expressions formed from any of the above, 
arithmetic and compare operators, and the 
legal functions. 


5. Strings surrounded by matched pairs of single 
or double quotes. 


6. Format control characters described later in 
this section. 


A sample PRINT command follows which shows several 
of these items. Note the use of both quoted and 
unquoted strings, a variable, and a constant 
expression: 


lø PRINT "THIS ', "OR THAT ", $(A+3), X, 2*3-5/4 


OK 
>RUN 
THIS OR THAT PLUS =9 5 


The string array $(A+3) has been set elsewhere to 
the string "PLUS", and the variable X has been 
previously set equal to -9. 


The items in the print list can also be format 
controls. The allowable characters to use as 
format controls are summarized briefly below, 
followed by a more detailed description and some 
illustrations. i 
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it specify leading spaces or hexadecimal 

% specify number of hexadigits 

3 (preceding) specify additional leading 
spaces 

š (succeeding) specify no CR-LF at end of 
item 


i tab to a specific column 

The character "#" followed by a number n means 
print leading spaces (if necessary) to make numbers 
at least n spaces wide. Spaces can also be added 
by means of extra commas between items. The format 
control "#%%" means print numbers in 4 hexadigits, 
whereas "#%" means print the low order byte of a 
number only, in 2 hexadigits. A format control 
Stays effective until changed by another format 
control or until the PRINT command ends. The 
default format if no control is specified is #6. 
The following example will illustrate these points: 


lø PRINT 1, -2, 345, -6789 
20 PRINT #3, 1, -2, 345, -6789 
30 PRINT %%%, l, -2, 345, -6789 
40 PRINT #33, 1,, -2,, 345,, -6789 
5Ø PRINT #%, 1,, -2,, 345,, -6789 
OK 
>RUN 
vr -2 345 -6789 
1 -2345-6789 
ØØØlFFFEØ159E57B 


ØØØl FFFE 0159 E57B 
Øl FE 59 7B 


The underline or back-arrow character (ASCII 5FH) 
is used as a format control to indicate tabbing to 
a particular column on the console device. It 
should be followed by.a number n which is the 
column number; this will cause the cursor or print 
head to move to that position. The print positions 
are numbered from left to right beginning with 1. 
If n is 1, the cursor (print head) will move to the 
left margin without a line feed. For model MCB-216 
of Control Basic, the cursor will move to position 
n independent of its present position, i.e, it may 
move either left or right. Model CB-398, however, 
allows movement only to the right of the present 
position. 
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The PRINT command generates a carriage return and 
line feed at the end of the last item in the 
command. However, if there is a comma at the very 
end of the. line, the CR-LF is not generated. The 
following example will illustrate both the tab 
feature just discussed and the suppressed CR-LF: 


lø PRINT 'THIS', 
20 PRINT ' IS ', 
3Ø PRINT 'PRINTED ON ONE LINE' 


4Ø PRINT 'WE HAVE', 16, '0= 0", 10, '- / /' 


OK 

>RUN 

THIS IS PRINTED ON ONE LINE 
WE HAVE @ # @ 


Note that statement 40 of this example is somewhat 
special purpose in that it will work correctly only 
with model MCB-216 and with a console device which 
will print non-destructive spaces such as a 
teletype. 


INPUT Command 


The INPUT command is used to prompt the operator to 
type in an expression or a string to be saved by 
the program in a variable, an array element, or a 
string array. The word INPUT is followed by a list 
of items (any of the above) separated by commas. 
The items may also be strings (quoted in single or 
double quotes) or tab controls for the terminal. 
These items look and behave exactly like those used 
in a PRINT statement (See section 5.4.1). For 
example, the underline or back-arrow character 
(ASCII 5FH) may be used to specify INPUT at a 
particular column on the console terminal. 
Following are two examples which will illustrate 
some of the features of INPUT statements. The 
first example shows tab control and the second 
shows how to input character strings (underlined 
sections are to be user-typed): 
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lø INPUT "INPUT 'A' HERE" A, 3Ø, "AND 'B' THERE" B 
20 PRINT #0, A, 3Ø, B 


OK 
>RUN 
INPUT 'A' HERE:123 
AND 'B' THERE:456 
123 456 


Note that the quoted letters 'A' and 'B' are 
considered part of the strings shown because they 
are in single quotes and the strings are in double 
quotes. This could be reversed (letters in 
doubles; strings in singles); however, if both the 
Strings and the letters are quoted with the same 
symbol, Control Basic will not understand and will 
print "WHAT?" (see Chapter 6). 


19 INPUT "GIVE ME A STRING: ", $(23) 
20 PRINT "YOU TYPED '", $(23), """ 
39 INPUT X, @(11) 

49 PRINT X, @(11) 


OK 
> RUN 
GIVE ME A STRING: THIS IS A STRING, 
YOU TYPED 'THIS IS A STRING.! 
X:3*5+5*6 
@ (11) :X+1 

45 46 


In this example the operator answered the first 
input inquiry by typing "THIS IS A STRING.", 
answered the second one by "3*5+5*6", and answered 
the third one by "X+1". Note that in statement 3Ø 
where a variable and an array element are the input 
items, the names of the variables, "x" and "@(11)", 
are also printed automatically by Control Basic as 
prompts. If the operator makes an error in 
response to the prompt, Control Basic will also 
retry that part of the INPUT and reprint the 
prompt. When the input item is a string array as 
it is in statement 19, there is no automatic prompt 
and whatever the operator types is always accepted. 
We now rerun the same program giving several 
unusual inputs to see their effect: 
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OK 
> RUN 
GIVE ME A STRING: 3?#1* 
YOU TYPED '3?#1*! 
X:152#1% 
WHAT? 
x:2/9Ø 
HOW? 
X:@ (8808) 
SORRY 
X:2+1 
‘ @(11):(3+4)*5) 
WHAT? 
@(11):(3+4)*5 
3 35 


Programmers not wishing to take advantage of the 
automatic variable name prompt can supply their own 
in a pair of single or double quotes preceding the 
variable or array name without a comma between 
them. The next example will illustrate: 


19 INPUT "PLEASE GIVE ME YOUR ","WEIGHT (IN LBS)" X 
.2Ø LET Y=(10*X+11)/22 
39 PRINT 'THAT IS ABOUT ', #0, Y, " KILOGRAMS" 


OK 

>RUN 

PLEASE GIVE ME YOUR WEIGHT (IN LBS) :HUNDRED AND FORTY 
WHAT? 

WEIGHT (IN LBS):14Ø 


THAT IS ABOUT 64 KILOGRAMS 


Note that only the prompt "WEIGHT (IN LBS)" is 
repeated; the string "PLEASE GIVE ME YOUR " is 
separated from the input item by a comma and is 
thus not repeated following an incorrect response, 
The expression in statement 29 handles the unit 
conversion and rounding in integer arithmetic. 


OUT Command 


The OUT command is used to output a byte of data to 
any I/O port. The format of the command is 


OUT (x) = y 
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where x is the port number and is an expression 
with a value between Ø and 255 (Ø-FFH), and y is an 
expression also with a value between Ø and 255, 
which is the actual byte of data to be output. 


The counterpart of OUT is IN, but IN is a function 
rather than a command. The input function IN(x) is 
used to read data or status information in from an 
I/O port. The port number x is again an expression 
with a value between Ø and 255 (@-FFH). This 
function, like any other function, cannot stand for 
a command by itself. Thus in the following example 
illustrating the use of the OUT command and the IN 


function, statement 19 is invalid while the other 
statements are legal. 


lø IN(3) 

20 PRINT 4%, IN(3),, SIZE,, LOC 
30 LET A=AND(IN(B+1) ,349) 

40 OUT(B+1)=A 
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Non-Executable Commands — 


REM Command 


The word "REM" may be used in a Control Basic 
statement to denote a REMark line. This "command" 
is non-executable and everything following the REM 
on that statement line (preceding the CR) is 
ignored by the Interpreter. REM may also appear on 
the same line with other commands in a multiple- 
command statement; everything preceding the REM 
command will be executed but the rest of the line 
is again ignored. There are several commands which 
must be the last command on a line; these cannot be 
followed by even a REM command. They are: GOTO, 
RETURN, and STOP. [Also note that the word 
"REMARK" may be used instead of "REM" if you wish 
since the letters "ARK" are ignored anyway.] The 
following example illustrates the use of REM: 


10 REM 

20 REM *** Title of Program *** 

39 REM 

49 PRINT "RECIPE"; REM PRINT "COOKBOOK" 


In this example statements 10, 20, and 30 will be 
ignored during execution of the program; statement 
49 will cause Control Basic to print the word 
"RECIPE" but not the word "COOKBOOK". 


AUTORUN Command 


Note that AUTORUN is treated exactly like a REMark 
in every case except when the computer hardware 
reset is pressed, in which case AUTORUN causes the 
Control Basic program at page 16(%10) to begin 
executing. AUTORUN is a feature of the MCB-216 
model of Control Basic only. For more information 
see section 5.3.4. 
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Editing Commands (direct only) 


NEW Command 


The NEW command is used to delete the current 
program stored in the text area. It is a direct 
command which is executed by typing "NEW <CR>" from 
the console device. NEW is executed automatically 
upon entering Control Basic initially and upon 
issuing a LOAD command (section 5.7.4). 


LIST Command 


The LIST command is used to print some or all of 
the statements of the current program in the text 
area in numerical order on the console device. It 
is used frequently in entering, editing, and 
verifying Control Basic programs, There are 
several legal forms of LIST; the simplest .is to 
type "LIST <CR>", which will then list the entire 
current program from beginning to end. A more 
complete format is 


LIST x,n 


where x is the beginning line number (a constant) 
and n is the number of lines to be LISTed. Both 
these values are optional, and the comma (,) should 
be omitted if n is. The following examples will 
illustrate these points further: 


LIST 129 prints all statements beginning 
with line number 120. 

LIST 120,3 prints at most (i.e., fewer will 
be printed if fewer are present) 
3 statements beginning with line 
120. l 

LIST ,2Ø prints at most 2Ø statements 
starting with the beginning line 
of the current program. 

L.90,1 prints only statement number 90, 
if there is one. Note the abbre- 
viated form of LIST (Chapter 4), 
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Storage and File Commands (direct only) 


LOCK. Command 


The LOCK command is used to change the boundary 
between the current program text area and the area 
reserved for SAVEing program files. A sample LOCK 
command is 


LOCK 49 


which will set the boundary between the text area 
and the SAVE area at 28ØØH (page 49D=paye 28H). 
Thus pages 4 through 39 (CB-398) or 34 through 39 
(MCB-216) become allocated to the current Program 
text and pages 4Ø through 255 can be used to SAVE 
files. The LOCKed value (see "TXTLMT" in Memory 
Allocation, section 8.1.1 or 8.2.1) is set when 
Control Basic is cold started to 32 (29H) for model 
CB-3Ø8 and 36 (24H) for model MCB-216. If these 
values are lowered by means of the LOCK command 
after a program has been entered into the text 
area, Control Basic will print "SORRY" if the page 
number specified would include part of that Current 
program. For example, suppose the current Program 
resides in pages 4 through AH. The command "LOCK 
SA" will print "SORRY" but the command "LOCK %B" 
will be accepted and executed. 


IF the LOCK command is used to increase the Size of 
the current program area, it is up to the user to 
make sure that this does not endanger any 
previously SAVEd files. The allowable rande of the 
LOCK command is 5-255 (5H-FFH) for CB-398 and 35- 
255 (23H-FFH) for MCB-216. 


SAVE Command 


The SAVE command is used to save the Current 
program in a particular page of memory. The page 
number given should be above the LOCKed text area 
and generally coincident only with read/write 
memory space. A sample SAVE command is 


SAVE 343 


where the current program will be saved if memory 
beginning at 43ØØH. When the SAVE command is 
finished, Control Basic will print a message 
indicating how many pages of memory were used. For 
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example the message 
SAVED ON PAGE %43 TO %45 


means that the current program now occupies all of 
pages 43H and 44H, and all or part of page 45H. If 
the copy does not compare with the original (for 
example, if there is no RAM at the specified page), 
Control Basic will print "SORRY". "SORRY" will 
also be printed if one attempts to SAVE a program 
in pages Ø through one less than the LOCKed number 
(i.e., 9 through 31 for CB-3Ø8 and Ø through 35 for 
MCB-216, as they are initially configured). This 
region is reserved by Control Basic for variables, 
stack, and the current text (see section 8.1.1 or 
8.2.1). 


The SAVE command may also be used in conjunction 
with a 32K Bytesaver to program 2716 (2516) PROMs. 
Remember to, turn on the program power of the 
Bytesaver board before issuing the SAVE command. 
Used in this way, SAVE will take several minutes to 
execute due to the wait states required by the 
2716's while programming. 


EPROM Command 


The EPROM command may be used to save the current 
program in blank or erased 27098 PROMS. The PROMS 
must be loaded onto a Cromemco Bytesaver board 
residing in currently addressed memory. A 
convenient place to have the PROMs reside when 
using model CB-3Ø8 of Control Basic is from 
addresses FØØØH to FFFFH, or simply the top half of 
the Bytesaver which contains CB-308. A sample 
EPROM command is 


EPROM 64 


where the current program will be saved in PROMS 
addressed beginning at '4ØØØH (page 64D=page 40H). 
The page number must be divisible by 4 (since 
2708's are 1K bytes long, or 4 pages). This 
command will take several minutes to execute, where 
the amount of elapsed time will depend on the 
length of the program being saved. 


When the EPROM command is finished, Control Basic 
will print a message indicating how many pages of 
memory were used (always a multiple of four pages). 
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If the copy does not compare with the original, 
Control Basic will print "SORRY". See the SAVE 
command, section 5.7.2, for information on 
programming 2716 (2516) PROMs. 


LOAD Command 


Programs which have been saved with the SAVE or 
EPROM commands may be copied back to the text area 
for editing by means of the LOAD command. This 
process performs an automatic "NEW"; in other words 
the current program in the text area is deleted. 
An example use of LOAD is 


LOAD %43 


where the file stored on page 43H (or at 43ØØH in 
memory) is copied into the text area. If no 
program is stored at page 43H, Control Basic prints 
"SORRY". Also, since the length of any given 
stored program is contained in the first two bytes 
of the first page (see section 8.1.1 or 8.2.1), 
Control Basic knows immediately if it will fit into 
the text area. If it will not fit, "SORRY" is 
printed and no LOADing takes place. The size of 
the text area may be increased (to allow for 
LOADing very long programs) by means of the LOCK 
command, section 5.7.1. 
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Console Terminal Commands (direct only) 


WIDTH Command 


The WIDTH command may be used to compensate for the 
non-standardization of console terminals by 
allowing the user to set both a soft and hard 
screen width or margin. A sample WIDTH command is 


WIDTH 72,89 


which sets the soft margin at column 72 and the 
hard margin at column 89. When the soft margin has 
been exceeded during output, Control Basic will 
generate a carriage return-line feed sequence after 
any space character (and thus, at the ends of 
words). When the hard margin has been exceeded, it 
generates an immediate CR-LF. The values above are 
good choices for an 8Ø-column CRT. The default 
WIDTH for Control Basic model CB-3Ø8 is 69,69 and 
for MCB-216 it is 72,72. The allowable usable 
range for the first number is 9-129 and for the 
second is 0-255. 


Since WIDTH is a direct command, it cannot be set 
by a statement in a program. However, it is 
sometimes useful to be able to change the screen 
width in a particular program. One method of doing 
this is to use the PUT command to alter the RAM 
locations where the soft and hard margins are 
stored (see "MARGN" in Memory Allocation, section 
8.1.1 or 8.2.1). An example of this (for CB-398) 
is 
19 PUT(33E2) = 72,80 

which has the same effect as the WIDTH example 
above. A similar command may be used to set. the 


margins for MCB-216: 


lø PUT(%21E3) 


72,89 


39 


CROMEMCO 3K CONTROL BASIC INSTRUCTION MANUAL 
5 Control Basic Commands and Statements 


5.8.2 


NULL Command 


The NULL command is used to set the number of nulls 
transmitted by Control Basic after any carriage 
return-line feed sequence. This allows the user to 
set carriage return time for hardcopy devices such 
as teletypes. A sample NULL command is 


NULL 3 


which causes Control Basic to transmit 3 null 
characters after every CR-LF. The default value 
for NULL upon entering Control Basic (either model) 
is Ø. The allowable, usable range of the value is 
8-128. 
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Monitor-Entrance Commands (direct only) 


QUIT Command 


The QUIT command is used to return control to a 
system monitor. For Control Basic model CB-398 
this is assumed to be the Z8Ø Monitor (model ZM- 
198) located at EØØØH in memory. Typing "QUIT" 
will cause a jump from Control Basic to EØØSH, the 
warm start location for ZM-1Ø8. It is acceptable 
for programmers to use their own monitor if 
desired; however, there must still be a PROM 
containing a JP or CALL instruction at EØØSH to 
pass control to this monitor. One may use one of 
the Control Basic restarts to go back to CB-368 
after finishing with use of the monitor. These are 
summarized below along with their entrance 
addresses: 


name address function 


initial start E4ØØH initializes everything; 
moves I/0 routines to RAM. 


cold start E4Ø6H initializes everything 
except I/O. 


new program 

warm start E424H warm start which does not 
re-initialize margins or 
EOL nulls, etc. but does 
clear program area; same 
effect as NEW command. 


stored program 

warm start E42FH normal warm start for CB- 
398; program is preserved, 
but stack pointer is re- 
initialized. 


Thus, a typical re-entrance to CB-398 after using 
the Z8Ø Monitor would be the command "GE42F <CR>" 
(Go to E42FH). 


Control Basic model MCB-216 also has a QUIT 
command. However, in this case the Monitor has 
been merged with and is a part of Control Basic. 
Therefore, typing "QUIT" will pass control to the 
warm start of the Monitor, and typing "B <CR>" will 
pass control from the Monitor back to the Control 
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Basic warm start (see also section 8.2.4). The 
stored program will never be cleared because the 
Monitor always enters at the MCB-216 "stored 
program warm start." This is shown below along 
with the entrance addresses of the other restarts: 


name address function 


initial and 

cold start 423H initializes everything and 
sets baud rate of console 
terminal. 


new program 

warm start 447H warm start which does not 
re-initialize margins or 
console baud rate, etc. but 
does clear program area; 
same effect as NEW command. 


stored program 

warm start 452H normal warm start for MCB- 
216; program is preserved 
but stack pointer is re- 
‘initialized. The Monitor 
"B" command causes a jump 
to this location. 


RDOS Command 


The RDOS command is a feature of model MCB-216 
only. It is provided for users of this version of 
Control Basic who also have a 4FDC Disk Controller 
board in their system and one or more disk drives. 
Typing "RDOS" as a direct command causes control to 
pass from Control Basic to the warm start of the 
resident ROM monitor on the 4FDC known as RDOS. 
The disk read or write commands of RDOS may then be 
used to load programs into or save them from 
memory, respectively. See the RDOS Manual for more 
information. 


To return to Control Basic after using RDOS, type 
"G452 <CR>" to enter at the "stored program warm 
start" listed in section 5.9.1 above. You may also 
return via one of the other MCB-216 restarts listed 
in that section. 
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CHAPTER 6 


Error Reporting 


Only three error mesSageS are given by Control 
Basic. These are printed out on the console as 
soon as they are detected. The statement 
containing the error is printed below this with a 
question mark inserted at the point where the error 
is detected. If the error occurs in a RUNning 
program, execution is stopped. Since Control Basic 
is a pure interpreter, though, the presence of an 
error in a statement may not be detected until that 
line is actually encountered during execution. 
Error messages are also given for illegal direct 
commands as well as illegal statements in programs. 


WHAT? Error Message 


The error message "WHAT?" means that Control Basic 
does not understand you. It can occur for a wide 
variety of reasons, several of which are listed 
below as examples. Many other examples 
illustrating the cause of error messages will be 
found throughout this manual. 


WHAT? 
219 P?TINT "THIS" where "PRINT" is 
mistyped 
WHAT? 


269 LET C=(3+4?,X=4 where a ")" is missing 


HOW? Error Message 


The error message "HOW?" means that Control Basic 
understands you but does not know how to do it. 
For example, this message will occur in the 
factorial example of section 5.3.2 for any input 
number greater than 7. This is because the answer 
will then exceed the allowable maximum integer 
32767. Other examples illustrating the cause of 
the "HOW?" message are: 
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. HOW? 
319 LET A=B*C?+2 where B*C is larger than 
32767 
HOW? 
389 GOTO 412? where statement 412 


doesn't exist 


SORRY Error Message 


The error message "SORRY" means that Control Basic 
understands you and knows how to do it but it is 
still unable to do it because of memory or other 
physical limitations. If we replace statement 129 
in the example of section 5.3.2 with 


120 F=N+F; RETURN 


the "SORRY" message will be given for any. input 
number greater than 24. This is because recursive 
GOSUBs can be nested to no greater than 24 levels 
deep. Other examples of the cause of the "SORRY" 
message follow: 


SORRY 
409 LET A=@(90090)? where @(9000) is not 
within the current 
LOCKed text area 


>SAVE 3 

SORRY where page 3 is illegal 
to use for SAVEing a 
program 


In general misusing, or using illegal, commands 
will cause Control Basic to print "SORRY". The 
message will also be given by programs which 
contain direct commands used as statements. 
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CHAPTER 7 


Prime Number Generator - A Sample Program 


The following Control Basic program calculates the 
prime numbers between 1 and 19,999, and is provided 
to illustrate the power and ease of use of Control 
Basic. 


The "PRINT" statements in this program output the 
calculated prime numbers to a console or printer 
that is interfaced to the microprocessor system. 


lø PRINT 1, 

2Ø PRINT 2, 

3Ø FOR N=3 TO 109090 

49 FOR I=2 TO N/2 

59 IF N=(N/I)*I GOTO 84 
69 NEXT I 

7Ø PRINT N, 

8Ø NEXT N 


The first two prime numbers are explicitly printed 
out by the first two statements of the program. 
Subsequent numbers, N, are checked for being prime 
by testing to see if they are exactly divisible by 
any integer, I. If any N is exactly divisible, it 
is discarded as not being a prime. 


45 


CROMEMCO 3K CONTROL BASIC INSTRUCTION MANUAL 
8 Supplementary Information 


CHAPTER 8 


Supplementary Information 


Control Basic model CB-398 


Memory Allocation (CB-3Ø8) 


The listing which follows is a detailed outline of 
memory allocation for Control Basic model CB-3Ø8. 
The table on page 1 maps an entire 64K system. Of 
this, the minimum required is RAM from 18ØH to 
1FFFH and the Control Basic Interpreter itself in 
ROM from E4ØØH to EFFFH. The rest of memory (may 
be either ROM or RAM) except the unused portion 
from Ø to 17FH may be used to store program files 
and routines. Page 2 of the listing is a detailed 
breakdown of the RAM from 2ØØH to 3FDH, which 
contains Control Basic variables, stack, input 
buffer, and console parameters, 


CROMEMCO CDOS Z8Ø ASSEMBLER version 62.15 PAGE 6601 
3K Control Basic Variables and Memory Allocation 


(8186) 
(09200) 
(0490) 
(2090) 
(E4ØØ) 
(FØØØ) 


(E688) 


2803 ; 

0904 ; Copyright (c) 1976, 1979 Cromemco, Inc. 

8805 ; 

20006 ; 

0907 ; *** Memory Usage (probably RAM unless otherwise noted) *** 
20998. ; 

20009 ; 900909-0917F are not used 

0019 ; Ø18Ø-Ø1FF are for the I/O routines 

ØØll ; Ø2ØØ-Ø3FF are for variables, input line, and stack 

0012 ; Ø4ØØ-lFFF are for Control Basic text & array € (I) 

0013 ; 2008-DFFF are not used but may be used for saved files 

0914 ; E990-E3FF are for system monitor and not used here (ROM) 
0015 ;  E4ØØ-EFFF are for Control Basic Interpreter (ROM) 

9916 ;  FØØØ-FFFF are not used but may be used for saved files 

9029 TORAM EQU 18 0H ; START OF I/O ROUTINES IN RAM 
9921 BOTRAM EQU 2ØØH ; "BOTTOM OF RAM" FOR VARIABLES, 
9922 TXTRAM EQU 4ØØH ; BOTTOM OF "TEXT RAM" 

ØØ23 TOPRAM EQU 2000H ; "TOP OF RAM" USED BY CONTROL BASIC 
0024 BOTROM EQU 0E400H ; "BOTTOM OF ROM" CONTAINING CB 
6925 TOPROM EQU BOTROM+ØCØØH ; FIRST FREE LOCATION PAST "TOP OF 
0926 H ROM” (USED BY RND FUNCTION) 
9927 MONITR EQU ØEØØSH ; MONITOR WARM-START POINT 
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CROMEMCO CDOS 7809 ASSEMBLER version Ø2.15 


3K Control Basic Variables and Memory Allocation 


8800" 
0200 
9268 
8269 


Ø2EE 
8316 


Ø3DE 
Ø3EØ 
03E1 
Ø3E2 
Ø3E3 
Ø3E4 
63E5 
93E6 
83E8 
Ø3EA 


93EC 
Ø3EE 
Ø3FØ 
Ø3F2 
Ø3F4 
03F6 
03F8 
Ø3FA 
Ø3FC 


Ø3FE 


0400 
0402 


PAGE 9092 


0030 ORG BOTRAM 
(6868) 9931 VARBGN: DEFS 2* (26*2) i VARIABLE A-Z AND AØ-ZØ STORAGE 
(0001) 0032 DEFS 1 ; EXTRA BYTE FOR INPUT BUFFER 
(9985) 9933 BUFFER: DEFS 133 i STORAGE FOR INPUT LINE BUFFER 
(@2EE) 0934 BUFEND EQU $ i END OF INPUT BUFFER 
(9028) 9935 DEFS 40 ; EXTRA BYTES FOR STACK 
(29C8) 9036 STKLMT: DEFS 200 ; SOFT LIMIT FOR STACK 
(@3DE) 6637 STACK EQU $ ; TOP OF STACK 
(8882) 0938 IOINS: DEFS 2 ; STORAGE FOR AN 1/0 INSTRUCTION 
(0001) 6639 IORET: DEFS 1 ; STORAGE FOR THE RETURN INSTRUCTION 
(9001) 6648 NULLS: DEFS 1 ; NUMBER OF NULLS AFTER CR-LF 
(6881) 0041 MARGN: DEFS a: ; SOFT TERMINAL WIDTH 
(0001) 0042 DEFS 1 ; HARD TERMINAL WIDTH 
(0001) 8843 OCMG: DEFS 1 ; COLUMN COUNTER FOR MARGINS 
(9901) 9044 OCSW: DEFS 1 ; SWITCH FOR VISIBLE OUTPUT 
(0002) 9945 CURRNT: DEFS 2 ; CURRENT LINE NUMBER STORAGE 
(6682) 0046 STKRUN: DEFS 2 ; SAVES STACK POINTER DURING 'RUN' 
(9002) 9947 STKGOS: DEFS 2 ; SAVES STACK POINTER DURING 'GOSUB' 
(Ø3EC) 9948 VARNXT EQU $ ; TEMP. STOR. OF CURRENT 'NEXT' VAR. 
(Ø3EC) 8649 CALDE EQU $ ; TEMP. STOR. FOR ADDR. FOR 'CALL' 
(@862) 0959 STKINP: DEFS 2 ; SAVES STACK POINTER DURING 'INPUT' 
(00092) 00951 LOPVAR: DEFS 2 ; ADDRESS OF 'FOR' LOOP VARIABLE 
(0992) 0952 LOPINC: DEFS 2 7 'STEP' SIZE FOR 'FOR' LOOP 
(0902) 0953 LOPLMT: DEFS 2 ; LIMIT OF 'FOR' LOOP VARIABLE 
(0902) 9954 LOPLN: DEFS 2 ; TEMP. STOR. OF 'CURRNT' IN 'FOR' 
(9002) 9955 LOPPT: DEFS 2 ; TEXT POINTER TEMP. STOR. IN 'FOR' 
(9002) 0956 RANPNT: DEFS 2 i ADDR. POINTER USED IN RND FUNC. 
(0662) 0057 TXTBGN: DEFS 2 ; STORAGE OF TEXT POINTER ADDR. 
(00092) 0058 TXTLMT: DEFS 2 ; TEXT AREA LIMIT (SAME AS 'TOPRAM' 
0059 j UNLESS CHANGED BY 'LOCK') 
8863 ORG TXTRAM 
(9002) 0064 TXTUNF: DEFS 2 ; POINTER TO UNFILLED TEXT AREA 
(9002) 0065 TEXT: DEFS 2 ; START OF ACTUAL TEXT (STORAGE 
09066 ; OF FIRST LINE NUMBER) 


Also shown on page 2 is the beginning of the text 
area for the current program. The text area is 
organized as follows; any stored program (by means 
of the SAVE or EPROM commands) is organized this 
same way: 


1. The first two bytes of the first page point to 
the first available byte after the program 
text relative to 4ØØH. 


Za The next two bytes contain the line number of 
the first line in binary (low byte-high byte). 
This is followed by the text of the first line 
and a single @DH, or CR, at the end of that 
line. i 


as Subsequent lines of text duplicate the form of 


this first line: 2-byte binary line number, 
ASCII text, CR-byte. 
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4. The final line of the program is followed by 2 


additional bytes, xxH-FFH, where xx is an 
indeterminate value. 


Ba Following these are two bytes which contain 
the value of the array element Q(Ø) (low byte- 
high byte binary). The value stored in TXTUNF 
(location 4@@H) will be the address of the 
next byte following this array element. (In 
the case of a stored program file, this 
address is stored in the first two bytes of 
the first page of the file, which is 
equivalent to the location TXTUNF.) 


Note that the foregoing structure of a program is 
the same regardless of whether it is a stored file 
or the current program in the text area. However, 
for a text area file only, subsequent values of the 
array @(I), where I=1,2,3,..., are stored in the 
text area following @(9) (two bytes per array 
element). If the array @(I) grows too large to fit 
in the text area, Control Basic will not allocate 
memory past the LOCKed top and will instead print 
"SORRY". Use the LOCK command to enlarge the text 
area in such a case. 


Also, note that for stored program files the first 
two bytes point to the first available memory 
location relative to 4ØØH. Thus for example, the 
two bytes D7-95 (low-high) stored at location 43ØØH 
(page 43H) mean that the first available memory 
location following that file is at 44D7H (5D7H- 
400H+4300H). More information on arrays will be 
found in section 3.2. 


I/O Drivers (CB-3Ø8) 


The listing below is for the I/O drivers of Control 
Basic model CB-398 as found in RAM. These routines 
are stored within the Control Basic ROMS at E4ØØH 
and are moved to RAM at 18ØH as the first operation 
of CB-3Ø8. They are provided in RAM so that a user 
may change them using the Z8@ Monitor or Control 
Basic itself to handle either unusual I/0 devices 
or devices at different ports. An example follows. 


Suppose the user would like to connect the 1/0 
device (a CRT) to the computer through an 1/0 card 
whose base port address is 26H. The user's 
computer is set up to begin operation in the Z8Ø 
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Monitor program which initializes and uses the CRT 
at 29H. To enable Control Basic to use the CRT as 
well, the following steps must be taken: 


GE4ØØ/E4Ø6. (Go into Control Basic and 
break after the 1/0 routines 
have been moved to RAM.) 


SM 18B (Substitute in memory at those 
1D7 addresses which contain a port 
00.200 number.) 
SM 197 
IDC 
01.21 
GE4Ø6 (Continue at Control Basic cold 
å start.) 


The user will now be operating Control Basic 
through a CRT connected to I/O port base address 
20H. 


Below are the complete Control Basic I/O Driver 
routines, 
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CROMEMCO CDOS 288 ASSEMBLER version 62.15 
3K Control Basic I/O Routines in RAM 


0000' 00082 ORG 186H 
(8888) 0994 CSTAT EQU 2 
(50901) 9095 CDATA EQU CSTAT+1 
(5080) 0906 TBE EQU 8 ØH 
(8848) 6907 RDA EQU 46H 
(ØØ7F) ØØØ8 PSTRIP EQU 7FH 
(9993) 9818 CTRLC EQU Ø3H 
(DOZA) @611 LF EQU GAH 
(ØØØD) @812 CR EQU ØDH 
(ØBØF) 9913 CTRLO EQU ØFH 
(6620) 6014 SPC EQU 26H 
(Ø3E1) $616 NULLS EQU 3E1H 
(Ø3E2) 6817 MARGN EQU 3E2H 
0818 
(@3E4) @219 OCMG EQU 3E4H 
(Ø3E5) ØØ2Ø OCSW EQU 3E5H 
0021 
(E42F) 0922 RSTART EQU BE42FH 
6188 3E9D 0025 CRLF: LD A,CR 
6826 ; 
9182 F5 9027 OUTCHR: PUSH AF 
6183 3AE5@3 8828 LD A, (OCSW) 
0186 B7 6829 OR A 
0187 F2D401 00630 JP P,ENDOUT 
Ø18A DBØØ 9931 OUTC1Ø: IN A,CSTAT 
@18C E688 0032 AND TBE 
018E CASADI 0933 JP Z,OUTC1Ø 
0191 Fl 0934 POP AF 
9192 ES 0935 PUSH HL 
0193 F5 2936 PUSH AF 
0194 E67F 0037 AND PSTRIP 
6196 D301 0038 OUT CDATA,A 
9198 FEØD 0939 CP CR 
Øl9A 21E4893 0040 LD HL,OCMG 
919D C2A2Ø1 0041 JP NZ ;OUTC2Ø 
GlAO 3601 0942 LD (BL) ,1 
ØlA2 FE29 ØØ43 OUTC28: CP SPC 
ØlA4  DABBØL 0044 JP C,OUTC49 
ØlA7 7E 9045 LD A, (HL) 
G1A8 34 0046 INC (HL) 
BIA9 2AE203 0047 LD HL, (MARGN) 
BIAC BC 0048 CP H 
ØlAD CAB8Ø1 2849 JP Z,OUTC3Ø 
@1B@ BD 0050 CP L 
ØlBl  FABBØl 0051 JP M, OUTC4Ø 
91B4 Fl 0952 POP AF 
Ø1B5 FS 0953 PUSH AF 
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CONSOLE STATUS PORT (IN) 
CONSOLE DATA PORT (IN/OUT) 
TRANSMITTER-BUFFER-EMPTY MASK 
RECEIVER-DATA-AVAILABLE MASK 
PARITY-STRIP MASK 


ASCII CONTROL-C CHARACTER 
ASCII LINE FEED 

ASCII CARRIAGE RETURN 
ASCII CONTROL-0 CHARACTER 
ASCII SPACE CHARACTER 


NO. OF NULLS AFTER CR-LF (1 BYTE) 
SOFT TERMINAL WIDTH (1 BYTE) 

HARD TERMINAL WIDTH (1 BYTE) 

COLUMN COUNTER FOR MARGINS (1 BYTE) 
SWITCH FOR VISIBLE OUTPUT (1 BYTE) 
(THIS IS CHANGED BY TYPING CTRL-O) 
CONTROL BASIC WARM-START LOCATION 


*** CR-LF ROUTINE *** 


*** OUTPUT CHARACTER ROUTINE *** 
CHECK VISIBLE/INVISIBLE SWITCH 
IF BIT-7 IS SET, OUTPUT CHARACTER 
IF NOT SET, DON'T OUTPUT CHARACTER 
CHECK CONSOLE STATUS 
GET TRANSMITTER-BUFFER BIT 
LOOP TO WAIT IF NOT READY 
RETRIEVE CHARACTER 
SAVE REGISTERS 
/ 
STRIP PARITY BIT 
OUTPUT CHARACTER TO CONSOLE 
CHECK FOR CARRIAGE RETURN 
POINT TO COLUMN-COUNTER 
SKIP IF CHARACTER IS NOT CR 
INIT. COLUMN-COUNTER IF NEW LINE 
CHECK FOR PRINTABLE CHARACTER . 
SKIP IF NOT PRINTABLE 
GET COLUMN-COUNTER 
AND INCREMENT IT FOR PRINTABLES 
H GETS HARD AND L GETS SOFT MARGIN 
CHECK FOR HAVING REACHED HARD MARGIN 
FORCE OUTPUT CR-LF IF SO 
CHECK FOR HAVING REACHED SOFT MARGIN 
SKIP IF NOT YET REACHED ` 
GET CHARACTER AGAIN 
AND PUT BACK 
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@1B6 FE2Ø 9054 CP SPC 
0055 

Ø1B8 CC8ØØl 9956 OUTC3Ø: CALL Z,CRLF 

ØlBB Fl 0057 OUTC4Ø: POP AF 

@1BC El 0058 POP HL 

ØlBD FE@D 0959 CP CR 

ØlBF CØ 6668 _ RET NZ 
ØØGL ; 

gico FS < 0062 PUSH AF 

g1C1 3EØA 0063 LD A,LF 

01C3 CD82Ø1 0964 OUTNUL: CALL OUTCHR 

01C6 3AE103 0965 LD A, (NULLS) 

g1c9 C5 9866 PUSH BC 

GICA 47 0067 LD B,A 

61CB 97 9668 OUTC5Ø: SUB A 

gicc 85 0069 DEC B 

@1CD F482Ø1 0970 CALL P,OUTCHR 

ØlDØ DACBØL 0071 JP C,0UTC5Ø 
0072 

øiD3 Cl 9973 POP BC 

91D4 Fl 0974 ENDOUT: POP AF 

61D5 C9 6875 RET 

Ø1D6 DBØØ ØØ79 CHKINP: IN A, CSTAT 

Ø1D8 EG4Ø 0680 AND RDA 

GIDA C8 0081 RET Z 

Ø1DB DBØL 0082 IN A, CDATA 

ØlDD E67F 0083 AND PSTRIP 

Q1DF FEGF 0084 cP CTRLO 

ØlEl C2EE@1 0085 JP NZ ,CHKILØ 

ØlE4 3AE563 ØØ86 LD A, (OCSW) 

01E7 2F 0087 CPL 

ØlEB 32E563 0088 LD (OCSW) ,A 

ØlEB C3D6Ø1 0989 JP CHKINP 
0099 ; 

ØlEE FEØ3 6091 CHKI1@: CP CTRLC 

ølFø CB 0092 RET NZ 

ØlFl C32FE4 0093 JP RSTART 
9094 

(61F4) 6696 FIRSTFREE EQU - $ 
Errors ø 


ee Te TERT] 
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PAGE 6862 


CHECK FOR SPACE CHARACTER (DO CR-LF 
AT FIRST SPACE AFTER SOFT MARGIN) 

OUTPUT CR-LF IF FOUND 

RESTORE REGISTERS 

/ 


CHECK FOR CARRIAGE RETURN 
RETURN TO CONTROL BASIC IF NOT CR 


SAVE AF-REG. 

IF CR, SEND LINE FEED ALSO 

(THIS IS RECURSIVE) 

GET NUMBER OF NULLS 

SAVE BC-REG. 

PUT NULL-COUNT INTO B-REG. 

CLEAR A-REG. TO A NULL 

DECREMENT NULL-COUNT 

OUTPUT NULL IF COUNT NOT= Ø 

C-FLAG SET BY OUTCHR IF LAST 
CHARACTER WAS NULL 

RESTORE REGISTERS 

/ 

RETURN TO CONTROL BASIC 


*** CHECK FOR INPUT ROUTINE *** 

GET RECEIVER-DATA BIT 

RETURN TO CONTROL BASIC IF NOT READY 
READ CHARACTER FROM CONSOLE 

STRIP PARITY BIT 

CHECK FOR CONTROL-0 CHARACTER 

IF NOT CTRL-0, DO FURTHER CHECKING 
CONTROL~O TOGGLES VIS./INVIS. SWITCH 
TOGGLE BIT-7 

STORE VISIBLE/INVISIBLE SWITCH BACK 


INPUT ANOTHER CHARACTER 


CHECK FOR CONTROL-C CHARACTER 

RETURN TO CONTROL BASIC IF NOT CTRL-C 

IF CTRL-C, ABORT PROGRAM AND WARM- 
START CONTROL BASIC 


FIRST FREE BYTE OF MEMORY 
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SYMBOL TABLE 


CDATA 
CTRLC 
NULLS 
OUTC4Ø 
RSTART 


0001 
0093 
03E1 
@1BB 
E42F 


CHKI16 
CTRLO 
OCMG 
OUTC5Ø 
SPC 


B1EE 
GOOF 
03E4 
Ø1CB 
0020 


CHKINP 
ENDOUT 
OC SW 
OUTCHR 
TBE 


Ø1D6 
@1D4 
93E5 
6182 
0080 


CROMEMCO CDOS 288 ASSEMBLER version 62.15 
CROSS REFERENCE LISTING 


CDATA 
CHKI10 
CHKINP 
CR 
CRLF 
CSTAT 
CTRLC 
CTRLO 
ENDOUT 
FIRSTF 
LF 
MARGN 
NULLS 
OCMG 
OCSW 
OUTC1Ø 
OUTC2Ø 
OUTC3Ø 
OUTC4Ø 
OUTC5Ø 


OUTCHR 
OUTNUL 


PSTRIP 
RDA 
RSTART 
SPC 
TBE 


0005 
0091 
0079 
0012 
6825 
0004 
0019 
9913 
0074 
8096 
6811 
6817 
9016 
0019 
0020 
0031 
9043 
00956 
0957 
0068 
0027 
0064 
0008 
0007 
0022 
0014 
0006 


0038 
0085 
0889 
8825 
0056 
0005 
6091 
0084 
6030 


9063 
0047 
0065 
0049 
9028 
0033 
6041 


0049. 


0044 


0071 
0064 


0037 
0080 
9093 
0943 
0032 


9082 


0039 


09031 


8859 


6879 


09986 09988 


6851 


0070 
8083 


9054 


52 


CR 

FIRSTF 
OUTC18 
OUTNUL 


ØØØD 
ØlF4 
618A 
@1C3 


PAGE 0993 


CRLF 
LF 
OUTC2Ø 
PSTRIP 


PAGE ØØØ4 


8186 
BE BA 
B1A2 
007F 


CSTAT 
MARGN 
OUTC3Ø 
RDA 


0000 
03E2 
01B8 
0040 
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8.2 Control Basic model MCB-216 


8.2.1 Memory Allocation (MCB-216) 


The listing which follows is an outline of memory 
allocation for Control Basic model MCB-216 
equivalent to that of section 8.1.1. The minimum 
memory requirements to run this model are RAM from 
2ØØØH to 23FFH and the Control Basic Interpreter 
and Monitor in ROM from Ø to FFFH, the exact 
configuration of the Cromemco Single Card Computer. 
Memory from 1ØØØH to 1FFFH is usually ROM (as on 
the SCC) and may be used to store previously SAVEd 
programs. Locations 24ØØH to the end of 
addressable memory may be used for SAVEd or EPROMed 
programs and may be either ROM or RAM. Page 2 of 
the listing is a detailed breakdown of the RAM from 
20908 to 21FEH, which contains Control Basic 
variables, stack, input buffer, and console 
parameters, 


CROMEMCO CDOS 282 ASSEMBLER version 092,15 PAGE 9991 
3K Control Basic Variables and Memory Allocation (MCB-216) 


2003 ; 

0004 ; Copyright (c) 1976, 1979 Cromemco, Inc. 

0005. ; 

0006 ; 

0907 ; *** Memory Usage (probably RAM unless otherwise noted) *** 

BØØB ; 

9009 ; 0996-9422 are for SCC Monitor (ROM) 

9010 ; 9423-9FFF are for SCC Control Basic Interpreter (ROM) 

ØØll ; 1ØØØ-1FFF are for SAVEd user programs (usually ROM) 

9012 ; 20009-21FE are for variables, input line, and stack 

6613 ; 21FF-23FF are for Control Basic text & array @(I) 

9014 ; 2480-FFFF are not used but may be used for saved files 
(2090) 9918 BOTRAM EQU 2900H 7, "BOTTOM OF RAM" FOR VARIABLES, ETC. 
(2490) 9919 TOPRAM EQU 24ØØH ; "TOP OF RAM" USED BY CONTROL BASIC 
(0423) 9929 BOTROM EQU 423H i "BOTTOM OF ROM" CONTAINING CB 

0921 ; The following are used for interface to the SCC Monitor: 
(ØØ3B) 0922 MONITR EQU 3BH ; SCC MONITOR WARM-START LOCATION 
(005C) 0023 INITTUART EQU 5CH ; TUART INITIALIZATION ROUT. LOCATION 
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3K Control Basic Variables and Memory Allocation (MCB-216) 


8006" 
2000 
2068 
2069 


20EE 
2116 


21DA 
21DE 
21DF 
21El 
21E2 
21E3 
21E4 
21E5 
21E6 
21E7 
21E9 
21EB 


21ED 
21EF 
21F1 
21F3 
21F5 
21F7 
21F9 
21FB 
21FD 


21FF 
2201 


00929 ORG BOTRAM 
(0068) 9938 VARBGN: DEFS 2* (26*2) ; VARIABLE A-Z AND AØ-ZØ STORAGE 
(0901) 0031 DEFS 1 ; EXTRA BYTE FOR INPUT BUFFER 
(9985) 0232 BUFFER: DEFS 133 ; STORAGE FOR INPUT LINE BUFFER 
0450) paza bers dø i EXTRA BYTES FOR STACK 
(86 00 DE i R YTE 
(98C 4) 9235 STKLMT: DEFS 208-4 ; SOFT LIMIT FOR STACK 
(21DA) 0936 STACK EQU $ ; TOP OF STACK 
(0904) 0037 DEFS 4 ; RESERVED FOR RDOS 
(0091) 9938 BASFLGS:DEFS 1 ; 0 FOR COLD-; NON-Ø FOR WARM-START 
(9902) 0639 IOINS: DEFS 2 ; STORAGE FOR AN I/O INSTRUCTION 
(2001) 9940 IORET: DEFS 1 ; STORAGE FOR THE RETURN INSTRUCTION 
(ØØØ1) 69641 NULLS: DEFS 1 ; NUMBER OF NULLS AFTER CR-LF 
(gøgl) ØØ42 MARGN: DEFS 1 ; SOFT TERMINAL WIDTH 
(2881) 0843 DEFS 1 ; HARD TERMINAL WIDTH 
(9001) 0044 OCMG: DEFS 1 ; COLUMN COUNTER FOR MARGINS 
(90961) 0045 OCSW: DEFS 1 ; SWITCH FOR VISIBLE OUTPUT 
(9002) 9946 CURRNT: DEFS 2 ; CURRENT LINE NUMBER STORAGE 
(90092) 9947 STKRUN: DEFS 2 ; SAVES STACK POINTER DURING 'RUN' 
(9292) 90948 STKGOS: DEFS 2 ; SAVES STACK POINTER DURING 'GOSUB' ig 
(21ED) ØØ49 VARNXT EQU $ ; TEMP. STOR. OF CURRENT 'NEXT' VAR. 
(21ED) 99509 CALDE EQU $ ; TEMP. STOR. FOR ADDR. FOR 'CALL' 
(9002) 9951 STKINP: DEFS 2 ; SAVES STACK POINTER DURING ‘INPUT! 
(0002) 0052 LOPVAR: DEFS 2 i ADDRESS OF 'FOR' LOOP VARIABLE 
(90092) 9053 LOPINC: DEFS 2 ; 'STEP' SIZE FOR 'FOR' LOOP 
(6982) 09954 LOPLMT: DEFS 2 ; LIMIT OF 'FOR' LOOP VARIABLE n 
(0962) 9055 LOPLN: DEFS 2 ; TEMP. STOR. OF 'CURRNT' IN 'FOR' 
(09002) 9056 LOPPT: DEFS 2 ; TEXT POINTER TEMP, STOR. IN 'FOR' 
(8682) 9057 RANPNT: DEFS 2 ; ADDR. POINTER USED IN RND FUNC. 
(9902) 0958 TXTBGN: DEFS 2 ; STORAGE OF TEXT POINTER ADDR. 
(9992) 0959 TXTLMT: DEFS 2 ; TEXT AREA LIMIT (SAME AS 'TOPRAM' 

00609 ; UNLESS CHANGED BY 'LOCK') 
(21FF) 0064 TXTRAM EQU $ a 
(8002) 0065 TXTUNF: DEFS 2 ; POINTER TO UNFILLED TEXT AREA 
(9902) 9966 TEXT: DEFS 2 ; START OF ACTUAL TEXT (STORAGE 

0067 ; OF FIRST LINE NUMBER) 


Also shown on page 2 of the listing above is the 
beginning of the text area for the current program. 
The text area is organized as follows; any stored 
program (by means of the SAVE or EPROM commands) is 
organized this same way: 


l. The first two bytes of the first page point to 
the first available byte after the program 
text relative to 21FFH. 


2. The next two bytes contain the line number of 
the first line in binary (low byte-high byte). 
This is followed by the text of the first line 
and a single ØDH, or CR, at the end of that 
line. 


os Subsequent lines of text duplicate the form of 
this first line: 2-byte binary line number, 
ASCII text, CR-byte. 
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4. The final line of the program is followed by 2 
additional bytes, xxH-FFH, where xx is an 
indeterminate value. 


5. Following these are two bytes which contain 
the value of the array element €(Ø) (low byte- 
high byte binary). The value stored in TXTUNF 
(location 21FFH) will be the address of the 
next byte following this array element. (In 
the case of a stored program file, this 
address is stored in the first two bytes of 
the first page of the file, which is 
equivalent to the location TXTUNF.) 


The foregoing structure of a program is the same 
regardless of whether it is a stored file or the 
current program in the text area. Also, this 
Structure is identical to that given in section 
8.1.1 for model CB-398 except that the current 
program area is relative to 21FFH instead of to 
400H. This means that users who want to use 
programs with MCB-216 which were previously EPROMed 
or SAVEd under CB-3Ø8 will have to change the ROMs 
slightly by adding an offset of 1DFFH (or, the 
difference 21FFH-499H) to the first two bytes of 
each program file, i.e., the value stored low byte- 
high byte in "TXTUNF" above. 


The storage of the array @(I) is the same for MCB- 
216 as for CB-3Ø8. This means that for the current 
program file stored in the text area, subsequent 
values of the array @(I), where I=1,2,3,..., are 
stored in the text area following €(Ø) (two bytes 
per' array element). If the array @(I) grows too 
large to fit in the text area, Control Basic will 
not allocate memory past the LOCKed top and will 
instead print "SORRY". Use the LOCK command to 
enlarge the text area in such a case, 


Also, note that for stored program files the first 
two bytes point to the first available memory 
location relative to 21FFH. Thus for example, the 
two bytes 5F-22 (low-high) stored at location 43ØØH 
(page 43H) mean that the first available memory 
location following that file is at 4360H (225FH- 
21FFH+43ØØH). More information on arrays will be 
found in section 3.2. 
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I/O Drivers (MCB-216) 


The I/O drivers for model MCB-216 of Control Basic 
are not moved into RAM as they are for model CB- 
308. This was done to allow more space in the 
Single Card Computer RAM for user programs. The 
I/O drivers are, however, largely the same as those 
used by CB-3Ø8 except that relative jump (JR) 
instructions are used in place of absolute jump 
(JP) instructions. The character output routine 
"OUTCHR" begins at location E98H and the character 
input routine "CHKINP" begins at location EEBH in 
the MCB-216 ROMS (see CB-398 listing in section 
8.1.2). 


Interrupts 


Special provisions have been made in Control Basic 
model MCB-216 for use with the Cromemco Single Card 
Computer (model SCC). Among these is the ability 
to take advantage of the SCC's interrupt structure. 
The Single Card Computer has 8 potential sources of 
interrupt, which are listed in the table below, and 
which are executed by Mode Ø of the three types of 
z89 interrupts. Mode Ø interrupts execute one of 
the eight Z8@ ReSTart instructions, RST ØØH through 
RST 38H. However, Since the addresses these 
instructions use are all part of the MCB-216 ROMs 
themselves and can thus not be changed by the user, 
this model of Control Basic has been programmed 
with JP instructions at each RST to fixed locations 
in on-board user programmable ROM, summarized (in 
order of priority from highest to lowest) in the 
table below: 


Source of Interrupt Vector Address 
Timer 1 timeout not available 
Timer 2 timeout re 1ØF2H 
External int. req. (INT) 1ØF4H 
Timer 3 timeout 1ØF6H 
Rec'r. data available 1ØF8H 
Trans'r. buffer empty 1ØFAH 
Timer 4 timeout not available 
Timer 5 or PI7 1@FEH 


Note that two of the Restarts (and thus two of the 
eight interrupts) cannot be used because their 
addresses are required for other system functions. 
Address Ø (the location of a vector for RST ØØH) is 
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required for initial power-on and contains a Jump 
to the cold start of the Control Basic segment of 
MCB-216 (see section 5.9.1). Address 30H (and the 
instruction RST 38H) is used as a break-point trap 
for debugging with the SCC Monitor portion of MCB- 
216. 


Also note that the rest of the interrupt vectors 
jump to locations in page 109H which are separated 
by only 2 bytes. It is up to the programmer to 
place Relative Jump instructions (JR) at these 
locations in ROM. The interrupt routines 
themselves must also be user-provided. 


The interrupt scheme outlined above was chosen to 
enable maximum use of the SCC-provided interrupts 
while placing minimum constraints on the amounts of 
ROM and RAM required. Note in particular that the 
top portion of page 109H was chosen for the 
interrupt vectors, leaving the bottom portion of 
that page still free for the AUTORUN command, if 
desired (see section 5.3.4). Thus, for example, 
the routine of section 5.3.4 could be programmed 
into a portion of a 2716 (2516) to later be loaded 
at 1ØØØH (ROM socket 2), and would occupy 
approximately 38H bytes. This would leave room in 
the upper portion of page 1@H (and, of course, 
within the same ROM) for the interrupt vectors 
described above. If the user does not intend to 
make use of the SCC Interrupts, then the program of 
section 5.3.4 could have line 38 eliminated 
completely, and in its place the continuing text of 
the program which is to be AUTORUN. 


Miscellaneous Features of MCB-216 


Since MCB-216 is composed of two integrated parts, 
Control Basic and the SCC Monitor, this section 
deals briefly with the differences between this 
Monitor and model ZM-198 supplied by Cromemco in 
stand-alone form. The MCB-216 Monitor does not 
include the "U" (UART) or "N" (Null) commands of 
ZM-1Ø8. It does, however, have two additional 
commands, "B" and "E", 


The "B" or Basic command is used to return control 


from the Monitor to Control Basic. It is described 
further in section 5.9.1. ; 
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The "E" or Examine command is used to examine the 
contents of input ports. The format to use is 
simply "E nn <CR>", where nn is a port number in 
hex ranging from Ø to FF. The current value 
present at that input port will be read and 
displayed in hex on the console terminal. 
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INDEX 


A 

abbreviations of commands and functions, 12 
aborting running programs, 11 

ABS function, 7 

ALT-MODE key, using for corrections, 4 

AND function, 7 

arithmetic operators, 8 

arrays, 6 

assignment commands, 16 

AUTORUN command, 25, 34 


B 
B command, MCB-216 Monitor, 57 


C 

CALL command, 26 

command abbreviations, 12 
command, definition, lø 
commands, assignment, 16 
commands, console terminal, 39 
commands, control, 18 
commands, editing, 35 
commands, I/O, 28 

commands, monitor-entrance, 41 
commands, non-executable, 34 
commands, storage and file, 36 
commands, subroutine, 23 
compare operators, 8 

console terminal commands, 39 
constants, 6 

control commands, 18 
Control-C, program abort, ll 
correcting statements, 3 
current program, 19 

current program area, CB-3Ø8, 47 
current program area, MCB-216, 54 


D 

definitions of important terms, 10 
DELete key, using for corrections, 4 
deleting statements, 3 

direct command, definition, 19 


E 

E command, MCB-216 Monitor, 57 
editing commands, 35 

entering programs from console, 3 
entering statements, 3 
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EPROM command, 37 

ESCape key, using for corrections, 4 
expression operators, 8 

expressions, forming, 9 


F 

file commands, 36 

FOR command, 19 

FOR-NEXT loops, 21 
function, definition, 10 


G 

GET function, 8, 17 

getting started with Control Basic, 3 
GOSUB command, 23 

GOTO command, 18 


H 
HOW? error message, 43 


I 
) I/O commands, 28 
I/O drivers, CB-3Ø8, 48 
1/0 drivers, MCB-216, 56 
IF command, 18 
IN function, 8, 33 
INPUT command, 38 
installing Control Basic, 3 
integers, 6 
interrupts, using with MCB-216, 56 


L 

LET command, 16 

LIST command, 35 
LOAD command, 38 
LOC function, 8 

LOCK command, 36 


M 

memory allocation, CB-3Ø8, 46 

memory allocation, MCB-216, 53 
monitor-entrance commands, 41 
multiple-command statement, definition, 10 


N 
NEW command, 35 

) NEXT command, 2Ø 
non-executable commands, 34 
NULL command, 40 | 
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O 

operators, 8 

OR function, 7 
OUT command, 32 


P 

paper tape, entering and saving programs, 4 
prime number example, 45 

PRINT command, 28 

PUT command, 16 


Q 
QUIT command, 41 


R 

RDOS command, 42 

REM command, 34 | 

RETURN command, 23 

RND function, 7 

RUBout key, using for corrections, 4 
RUN command, 24 


S 

SAVE command, 36 

SGN function, 7 

SIZE function, 7 

SORRY error message, 44 

spaces within statements, 11 
statement, definition, 10 

STEP portion of FOR command, 19 
STOP command, 25 

storage commands, 36 

strings, 6 

subroutines, 23 

summary of commands, 12 

syntax, Control Basic programs, 11 


T 

text area, 10 

text area, CB-3Ø8, 47 
text area, MCB-216, 54 


V 
variables, 6 


W 
WHAT? error message, 43 
WIDTH command, 39 
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